#!/usr/bin/perl -w
print "Enter string";
@array = <STDIN>;
@sor = sort @array;
print "@sor";



